home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 46 / 046.d81 / code 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  695 b   |  24 lines
  1. 10 poke53281,0:poke53280,0
  2. 20 ifa=.thena=1:load"code 64.ml",8,1
  3. 30 printchr$(147)chr$(142)
  4. 110 print" [158]sys 49152 [159]toggles on and off...":print
  5. 115 print" when on, enter [158]_ [159]to find a code."
  6. 120 print" press [158]stop [159]to exit..."
  7. 125 print" do you want to create a binary file"
  8. 127 print" named 'code 64.ml-1'?  ([158]y[159]/[158]n[159])"
  9. 130 geta$:ifa$<>"y"and a$<>"n"then130
  10. 140 ifa$="n"then1000
  11. 142 print" insert a destination disk and"
  12. 144 print" press [158]return[146][159]."
  13. 146 geta$:ifa$<>chr$(13)then146
  14. 150 sys57812"code 64.ml-1",8
  15. 160 poke193,0:poke194,192:poke174,44:poke175,193
  16. 170 sys62954
  17. 1000 print" do you want to return to"
  18. 1010 print" loadstar?  ([158]y[159]/[158]n[159])"
  19. 1020 geta$:ifa$<>"y"anda$<>"n"then1020
  20. 1030 ifa$="n"thenend
  21. 1100 open15,8,15,"r0:hello connect=hello connect"
  22. 1110 input#15,er%:close15:ifer%<>63thenend
  23. 1120 load"hello connect",8
  24.